﻿Namespace B1Data
    ''' <summary>
    ''' 单元格数据检测基类（必须被继承）
    ''' 用过Check方法反映数据是否合法
    ''' Error属性返回错误提示信息
    ''' </summary>
    ''' <remarks></remarks>
    Public MustInherit Class CellCheckValue
        Implements B1Data.ICellCheckValue
        Private row As B1Data.B1DataRow
        Private col As B1Data.B1DataColumn
        Private _Error As String

        Sub New(ByVal Column As B1Data.B1DataColumn)
            col = Column
        End Sub

        Public ReadOnly Property [Error] As String
            Get
                Return _Error
            End Get
        End Property

        ''' <summary>
        ''' 检测方法
        ''' 异常则给_Error赋值
        ''' </summary>
        ''' <param name="row"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public MustOverride Function Check(ByVal row As B1Data.B1DataRow, ByVal Value As Object) As Boolean
 


    End Class

End Namespace
